home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ Shortcut 2.xpl < prev    next >
Text File  |  1999-06-11  |  2KB  |  81 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Explorer\Shortcuts"
  5. "NAME"="Prefix"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Use prefix "Shortcut to..." for new shortcuts"
  8. "DESCRIPTION 1"="Normally, Windows adds the text "Shortcut to" to any new shortcut you create."
  9. "DESCRIPTION 2"="If you do not like this, deactivate this option."
  10. "AUTHOR"="Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  12. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  13. "COMMENT 2"="Version 1.3"
  14. "COMMENT 3"=" "
  15. "COMMENT 4"="Thanks to Siegfried Burgstedt (siegfried.burgstedt@gmx.net)"
  16. "COMMENT 5"="Thanks to David Goodenough (dpg@ix.netcom.com) for the Win95 fix"
  17.  
  18.  
  19.  
  20.  
  21. Sub Plugin_Initialize 
  22.  s=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Link")
  23.  if GetWinVer=1 then 
  24.     if IsEmpty(s) then
  25.        SetUIElement 1, true
  26.     end if
  27.  else
  28.     if IsEmpty(s) then
  29.        SetUIElement 1,false
  30.     else
  31.        if s="00000000" then
  32.           SetUIElement 1,false
  33.        else
  34.           SetUIElement 1, true
  35.        end if
  36.     end if 
  37.  
  38.  end if
  39.  
  40. End Sub
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  b=GetUIElement(1)
  47.  
  48.  'Fix #2 
  49.  if GetWinVer=1 then
  50.  
  51.     if b=true then
  52.        Call RegDeleteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Link")
  53.     else
  54.        Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Link","00000000",3)
  55.     end if
  56.  
  57.  else
  58.  
  59.     if b=true then
  60.        'Fix #1
  61.        'Call RegDeleteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Link")
  62.        Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Link","30000000",3)
  63.     else
  64.       'Fix #2 
  65.       'Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Link","00000000",3)
  66.       Call RegDeleteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Link")
  67.     end if
  68.  
  69.  end if
  70.  
  71.  
  72.  Restart
  73. End Sub
  74.  
  75.  
  76. Sub Plugin_Terminate 
  77. End Sub
  78.  
  79.  
  80.  
  81.